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DIRECTORY 

AllGcDefs: FROM "anocdefs", 
CommanderDef s: FROM "commanderdef s" , 
ImageDefs: FROM "imagedefs", 
ListerDeFs: FROM "1 isterdef s" , 
StringDefs: FROM "s tringdef s" , 
TinieDeFs: FROM "timedef s" ; 

DEFINITIONS FROM ListerDefs; 

ListerControl: PROGRAM 

IMPORTS CommanderDef s, ImageDefs, ListerDefs, StringDefs, TimeDefs 

BEGIN ( 

herald: STRING ^ [40]; 

LoadLister: PROCEDURE = 
BEGIN 

START CommanderDef s .Commander [he raid] ; 
START ListCode; 
START ListSymbols; 
START Listlnterface; 
START ListBcd; 
START ListerRoutines; 
ImageDefs .Makelmage[" Lister . image"L] ; 

StringDefs .AppendString[to: herald, from: "Alto/Mesa Lister "L]; 
TimeDefs .AppendDayTime[ herald , 

TimeDefs .UnpackDT[ ImageDefs . ImageVersion[] . time]]; 
he^a^d . length <- herald . length - 3; 
END; 

LoadLister[] ; 

RESTART CommanderDef s .Commander ; 

END. .. 


